home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / fb386 / game / takara2 / tre2.bas < prev    next >
BASIC Source File  |  1994-11-16  |  37KB  |  625 lines
  1. 1000 '*****     FM TOWNS用ゲーム集　Ｖｏｌ．２    *****
  2. 1010 '*****    　 パズルゲーム ｢宝の塔][｣　　　　 *****
  3. 1020 '*****          PROGRAMED BY H2SO4           *****
  4. 1030 'Version 2.01
  5. 1040 SCREEN@ 0:CONSOLE 0,25,0:CLS:CLEAR ,,512,32768:RESTORE
  6. 1050 DIM HE1%(255),HE2%(255),HE3%(255),HE4%(255),ST%(255),WA%(255)
  7. 1060 DIM TR%(255),DR%(255),KE%(255),S(14,11)
  8. 1070 DIM M1%(255),M2%(255),M3%(255),M4%(255)
  9. 1080 FOR I=0 TO 255:READ HE1%(I):NEXT:FOR I=0 TO 255:READ HE2%(I):NEXT
  10. 1090 FOR I=0 TO 255:READ HE3%(I):NEXT:FOR I=0 TO 255:READ HE4%(I):NEXT
  11. 1100 FOR I=0 TO 255:READ ST%(I):NEXT
  12. 1110 FOR I=0 TO 255:READ TR%(I):NEXT
  13. 1120 FOR I=0 TO 255:READ DR%(I):NEXT
  14. 1130 FOR I=0 TO 255:READ WA%(I):NEXT
  15. 1140 FOR I=0 TO 255:READ KE%(I):NEXT
  16. 1150 FOR I=0 TO 255:READ M1%(I):NEXT
  17. 1160 FOR I=0 TO 255:READ M2%(I):NEXT
  18. 1170 FOR I=0 TO 255:READ M3%(I):NEXT
  19. 1180 FOR I=0 TO 255:READ M4%(I):NEXT
  20. 1190 GOTO 5510
  21. 1200 'MITTYAN 前
  22. 1210 DATA      0,     0,     0,-26224,  2457,     0,     0,     0
  23. 1220 DATA      0,     0,-26368,-26215,-26215,   153,     0,     0
  24. 1230 DATA      0,     0,-26215,-26215,-26215,-26215,     0,     0
  25. 1240 DATA      0,     0,-26215, -5735,-26215,-26215,     0,     0
  26. 1250 DATA      0,-28672,-26215, -5735,-26215,-26215,     9,     0
  27. 1260 DATA      0,-28672,-26215, -5735,-26210,-26215,     9,     0
  28. 1270 DATA      0,-28672, -5735, -4370, -4370,-26210,     9,     0
  29. 1280 DATA      0,-28672,  3737, -4608,   238,-26144,     9,     0
  30. 1290 DATA      0,-28672,  3742, -7937,  -242, -5664,     9,     0
  31. 1300 DATA      0,-28672,  -354, -4455,-26130, -5649,     9,     0
  32. 1310 DATA      0,-28672,  -354, -4455,-26130, -5649,     9,     0
  33. 1320 DATA      0,-28672,  -359, -4455,-26130,-26129,     9,     0
  34. 1330 DATA      0,-28672, -4455,  3822, -4384,-26130,     9,     0
  35. 1340 DATA      0,-28672, -5735, -4370, -4370,-26210,     9,     0
  36. 1350 DATA      0,-28672, -5735,-21778, -4438,-26210,     9,     0
  37. 1360 DATA      0,-28672,-26215, -4370, -4370,-26215,     9,     0
  38. 1370 DATA      0,     0,-26215, -4599,-28434,-26215,     0,     0
  39. 1380 DATA      0,     0,-26368,     9,-28672,   153,     0,     0
  40. 1390 DATA      0,     0,     0,   221, -8960,     0,     0,     0
  41. 1400 DATA      0,     0, -8752, -8739, -8739,  3549,     0,     0
  42. 1410 DATA      0,     0, -8739, -8739, -8739, -8739,     0,     0
  43. 1420 DATA      0,-12288,  3549, -8739, -8739, -8752,    13,     0
  44. 1430 DATA      0,-12288,   221, -8752,  3549, -8960,    13,     0
  45. 1440 DATA      0, -4384,    14,-25942,-21847, -8192,  3822,     0
  46. 1450 DATA      0, -4384,-24562,-21846,-21846, -8182,  3822,     0
  47. 1460 DATA      0, -4384,-24576,-21846,-21846,    10,  3822,     0
  48. 1470 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  49. 1480 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  50. 1490 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  51. 1500 DATA      0,     0,-16384,   204,-13312,    12,     0,     0
  52. 1510 DATA      0,     0,   -80,  3003,-17488,  3071,     0,     0
  53. 1520 DATA      0,     0,-17488,  3003,-17488,  3003,     0,     0
  54. 1530 '後ろ
  55. 1540 DATA      0,     0,     0,-26224,  2457,     0,     0,     0
  56. 1550 DATA      0,     0,-26368,-26215,-26215,   153,     0,     0
  57. 1560 DATA      0,     0,-26215,-26215,  -103,-26215,     0,     0
  58. 1570 DATA      0,     0,-26215,-26215,-26215,-26209,     0,     0
  59. 1580 DATA      0,-28672,-26215,-26215,-26215,-26119,     9,     0
  60. 1590 DATA      0,-28672,-26215,-26215,-26215,-26215,     9,     0
  61. 1600 DATA      0,-28672,-26215,-26215,-26215,-26215,     9,     0
  62. 1610 DATA      0,-28672,-26215,-26215,-26215,-26215,     9,     0
  63. 1620 DATA      0,-28672,-26215,-26215,-26215,-26215,     9,     0
  64. 1630 DATA      0,-28672,-26215,-26215,-26215,-26215,     9,     0
  65. 1640 DATA      0,-28672,-26215,-26215,-26215,-26215,     9,     0
  66. 1650 DATA      0,-28672,-26215,-26215,-26215,-26215,     9,     0
  67. 1660 DATA      0,-28672,-26215,-26215,-26215,-26215,     9,     0
  68. 1670 DATA      0,-28672,-26215,-26215,-26215,-26215,     9,     0
  69. 1680 DATA      0,-24864,-26215,-26215,-26215,-26215,  3817,     0
  70. 1690 DATA      0,-24850,-26215,-26215,-26215,-26215, -4375,     0
  71. 1700 DATA      0,  3822,-26215,-26215,-26215,-26215, -4384,     0
  72. 1710 DATA      0, -8736,-26368,-26215,-26215,   153,  3805,     0
  73. 1720 DATA      0, -8960,    13,-26215,-26215,-12288,   221,     0
  74. 1730 DATA      0,-12288, -8739, -8739, -8739, -8739,    13,     0
  75. 1740 DATA      0,     0, -8739, -8739, -8739, -8739,     0,     0
  76. 1750 DATA      0,     0,-12288, -8739, -8739,    13,     0,     0
  77. 1760 DATA      0,     0,     0, -8752,  3549,     0,     0,     0
  78. 1770 DATA      0,     0,     0,-21846,-21846,     0,     0,     0
  79. 1780 DATA      0,     0,-24576,-21846,-21846,    10,     0,     0
  80. 1790 DATA      0,     0,-24576,-21846,-21846,    10,     0,     0
  81. 1800 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  82. 1810 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  83. 1820 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  84. 1830 DATA      0,     0,-16384,   204,-13312,    12,     0,     0
  85. 1840 DATA      0,     0,-17488,  3003,-17488,  3003,     0,     0
  86. 1850 DATA      0,     0,-17488,  4091,-16400,  3003,     0,     0
  87. 1860 '右
  88. 1870 DATA      0,     0,     0,-26224,  2457,     0,     0,     0
  89. 1880 DATA      0,     0,-28672,-24679,-26215,   153,     0,     0
  90. 1890 DATA      0,     0,-26368,-26113,-26215,-26215,     0,     0
  91. 1900 DATA      0,     0, -1648,-26215,-26215,-26215,     0,     0
  92. 1910 DATA      0,     0,-26224,-26215,-26215,-26215,     9,     0
  93. 1920 DATA      0,     0,-26215,-26215,-26215,-26215,     9,     0
  94. 1930 DATA      0,     0,-26215,-26215,-26215,-24850,     9,     0
  95. 1940 DATA      0,     0,-26215,-26215, -4455,  3584,     0,     0
  96. 1950 DATA      0,-28672,-26215,-26215,  3817,  3839,     0,     0
  97. 1960 DATA      0,-28672,-26215, -4455, -4375,  3743,     0,     0
  98. 1970 DATA      0,-28672,-26215, -4455, -4375,  3743,     0,     0
  99. 1980 DATA      0,-28672,-26215, -5735, -4375, -4449,     0,     0
  100. 1990 DATA      0,-28672,-26215,-26215, -4375,  3822,     0,     0
  101. 2000 DATA      0,-28672,-26215,-26215, -4375,  3822,     0,     0
  102. 2010 DATA      0,-28672,-26215,-26215, -4455,  2798,     0,     0
  103. 2020 DATA      0,-28672,-26215,-26215, -4455,  3822,     0,     0
  104. 2030 DATA      0,     0,-26215,-26215, -4455,  3822,     0,     0
  105. 2040 DATA      0,     0,-26368,-26215,  3737,     0,     0,     0
  106. 2050 DATA      0,     0,     0,-26215,  3737,     0,     0,    14
  107. 2060 DATA      0,     0,     0, -8739, -8739,    13, -8192,   238
  108. 2070 DATA      0,     0,     0, -8739, -8739,   221, -8192,   238
  109. 2080 DATA      0,     0,     0, -8739, -8739, -8739, -4387,   238
  110. 2090 DATA      0,     0,     0, -8752,  3549, -8739, -4387,    14
  111. 2100 DATA      0,     0,     0,-21846,-21846, -8960,   221,     0
  112. 2110 DATA      0,     0,-24576,-21846,-21846,    10,     0,     0
  113. 2120 DATA      0,     0,-24576,-21846,-21846,    10,     0,     0
  114. 2130 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  115. 2140 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  116. 2150 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  117. 2160 DATA      0,     0,     0,  3276,-13120,     0,     0,     0
  118. 2170 DATA      0,     0,-20480,-17477,-17477,   255,     0,     0
  119. 2180 DATA      0,     0, -4096,-17473,-17409,   187,     0,     0
  120. 2190 '左
  121. 2200 DATA      0,     0,     0,-26224,  2457,     0,     0,     0
  122. 2210 DATA      0,     0,-26368,-26215,-26119,     9,     0,     0
  123. 2220 DATA      0,     0,-26215,-26215,  -103,   153,     0,     0
  124. 2230 DATA      0,     0,-26215,-26215,-26215,  2463,     0,     0
  125. 2240 DATA      0,-28672,-26215,-26215,-26215,  2457,     0,     0
  126. 2250 DATA      0,-28672,-26215,-26215,-26215,-26215,     0,     0
  127. 2260 DATA      0,-28672, -4375,-26215,-26215,-26215,     0,     0
  128. 2270 DATA      0,     0,   224,-26130,-26215,-26215,     0,     0
  129. 2280 DATA      0,     0,   -32,-24864,-26215,-26215,     9,     0
  130. 2290 DATA      0,     0, -1568,-24850,-26130,-26215,     9,     0
  131. 2300 DATA      0,     0, -1568,-24850,-26130,-26215,     9,     0
  132. 2310 DATA      0,     0, -1554,-24850,-26210,-26215,     9,     0
  133. 2320 DATA      0,     0, -4384,-24850,-26215,-26215,     9,     0
  134. 2330 DATA      0,     0, -4384,-24850,-26215,-26215,     9,     0
  135. 2340 DATA      0,     0, -4448,-26130,-26215,-26215,     9,     0
  136. 2350 DATA      0,     0, -4384,-26130,-26215,-26215,     9,     0
  137. 2360 DATA      0,     0, -4384,-26130,-26215,-26215,     0,     0
  138. 2370 DATA      0,     0,     0,-26144,-26215,   153,     0,     0
  139. 2380 DATA  -8192,     0,     0,-26144,-26215,     0,     0,     0
  140. 2390 DATA  -4608,    14,-12288, -8739, -8739,     0,     0,     0
  141. 2400 DATA  -4608,    14, -8960, -8739, -8739,     0,     0,     0
  142. 2410 DATA  -4608, -8722, -8739, -8739, -8739,     0,     0,     0
  143. 2420 DATA  -8192, -8722, -8739, -8752,  3549,     0,     0,     0
  144. 2430 DATA      0, -8960,   221,-21846,-21846,     0,     0,     0
  145. 2440 DATA      0,     0,-24576,-21846,-21846,    10,     0,     0
  146. 2450 DATA      0,     0,-24576,-21846,-21846,    10,     0,     0
  147. 2460 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  148. 2470 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  149. 2480 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  150. 2490 DATA      0,     0,     0,  3276,-13120,     0,     0,     0
  151. 2500 DATA      0,     0,  -256,-17477,-17477,    11,     0,     0
  152. 2510 DATA      0,     0,-17664,   -69, -1093,    15,     0,     0
  153. 2520 'STONE
  154. 2530 DATA      0,     0,     0,     0,     0,     0,     0,     0
  155. 2540 DATA      0,     0,     0,   -16,    -1,    13,     0,     0
  156. 2550 DATA      0,     0,   -16,  -513,  -515,  3549,     0,     0
  157. 2560 DATA      0, -4096, -8193, -8225, -8225, -8739,    13,     0
  158. 2570 DATA      0,  -256,  -515, -8739, -8739, -8739,   221,     0
  159. 2580 DATA      0, -8208, -8737, -8737, -8739,-12835,  3549,     0
  160. 2590 DATA      0,  -513, -8707, -8739, -8739, -8739,  3548,     0
  161. 2600 DATA      0, -8225,-12833, -8995, -8739,-12835, -8755,     0
  162. 2610 DATA  -4096,  -513, -8755, -8739, -8739, -8739, -8995,     0
  163. 2620 DATA  -4096, -8225, -8995, -8995, -8739, -8739, -8755,    13
  164. 2630 DATA   -256, -8707, -8740,  -515, -8739, -8739, -8996,    13
  165. 2640 DATA  -8448, -8737, -8739, -8225, -8737, -8739,-12851,   221
  166. 2650 DATA   -256, -8739,  -548,-12803, -8739, -8739, -8995,   221
  167. 2660 DATA  -8448, -8995, -8739, -8996, -8739, -8739,-12835,   221
  168. 2670 DATA   -528, -8739,-12321, -8755, -8755, -8739, -8995,  3548
  169. 2680 DATA  -8208, -8755, -8708, -8996, -8740, -8739,-12851,  3549
  170. 2690 DATA  -8720, -8739,-12849, -8755, -8739, -8739, -8995,  3549
  171. 2700 DATA  -8240,  -548, -8964,-12836, -8995, -8739, -8739,  2524
  172. 2710 DATA  -8720, -8755,-12849, -8739, -8740, -8739, -8739,  3549
  173. 2720 DATA  -8752,  -547, -8996, -8996, -8995, -8739,-12835,  2525
  174. 2730 DATA  -8720, -8739,-12849,-12851,-12835, -8739, -8739,  3485
  175. 2740 DATA  -8752, -8227, -8996, -8739, -8995, -9764, -8739,  2525
  176. 2750 DATA  -8752,  -547,-12851, -8995,-12835, -8803, -8739,  3485
  177. 2760 DATA  -8752, -8227, -8993, -8755, -8995, -9764, -8739,   217
  178. 2770 DATA  -8752,  -547, -8755, -8740, -8739, -8803, -8739,   157
  179. 2780 DATA  -8960, -8739, -8739, -8739, -8739, -9767, -8739,     9
  180. 2790 DATA  -8960, -8739, -8739, -9763, -8739, -8803,-25187,    13
  181. 2800 DATA -12288, -8739, -8739, -8803, -8739, -9767, -9763,     0
  182. 2810 DATA      0, -8752, -8739, -9763,-25123,-25187,  3485,     0
  183. 2820 DATA      0, -8960, -8743,-25187, -8803, -9767,     0,     0
  184. 2830 DATA      0,     0, -9763, -9767, -9767,     0,     0,     0
  185. 2840 DATA      0,     0,     0,     0,     0,     0,     0,     0
  186. 2850 'TREASURE
  187. 2860 DATA      0,     0,     0,     0,     0,     0,     0,     0
  188. 2870 DATA      0,     0,     0,     0,     0,     0,     0,     0
  189. 2880 DATA      0,     0,     0,     0,     0,     0,     0,     0
  190. 2890 DATA      0, -8192, -4370, -4370, -4370, -4370,    14,     0
  191. 2900 DATA      0, -4384,    14,     0,     0, -8192,  3822,     0
  192. 2910 DATA      0,   238,-22016,-21846,-21846,-21846, -4608,     0
  193. 2920 DATA  -8192,-24562,-21846,-21846,-21846,-21846, -5462,    14
  194. 2930 DATA  -4608,-21856,-21846,-21846,-21846,-21846,-21846,   238
  195. 2940 DATA   3808,-21856,-21846,-21846,-21846,-21846,-21846,  3818
  196. 2950 DATA   3808,-21846,-21846,-21846,-21846,-21846,-21846,  3818
  197. 2960 DATA   3808,-21846,-21846,-21846,-21846,-21846,-21846,  3818
  198. 2970 DATA   3808,-21846,-21846, -4370, -4370,-21846,-21846,  3818
  199. 2980 DATA   3808,-21846,-21846,  3822, -4384,-21846,-21846,  3818
  200. 2990 DATA  -4384, -4370, -4370,   238, -4608, -4370, -4370,  3822
  201. 3000 DATA      0,     0,     0,   238, -4608,     0,     0,     0
  202. 3010 DATA  -4384, -4370, -4370,  3822, -4384, -4370, -4370,  3822
  203. 3020 DATA   3808,     0,     0,  3822, -4384,     0,     0,  3808
  204. 3030 DATA   3808,-21846,-21846,  3822, -4384,-21856,-21846,  3818
  205. 3040 DATA   3808,-21846,-21846, -4384,  3822,-21856,-21846,  3818
  206. 3050 DATA   3808,-21846,-21846,    10,     0,-21846,-21846,  3818
  207. 3060 DATA   3808,-21846,-21846,-21846,-21846,-21846,-21846,  3818
  208. 3070 DATA   3808,-21846,-21846,-21846,-21846,-21846,-21846,  3818
  209. 3080 DATA   3808,-21846,-21846,-21846,-21846,-21846,-21846,  3818
  210. 3090 DATA   3808,-21846,-21846,-21846,-21846,-21846,-21846,  3818
  211. 3100 DATA   3808,-21846,-21846,-21846,-21846,-21846,-21846,  3818
  212. 3110 DATA   3808,-21846,-21846,-21846,-21846,-21846,-21846,  3818
  213. 3120 DATA   3808,-21846,-21846,-21846,-21846,-21846,-21846,  3818
  214. 3130 DATA   3808,-21846,-21846,-21846,-21846,-21846,-21846,  3818
  215. 3140 DATA  -4384,-21846,-21846,-21846,-21846,-21846,-21846,  3822
  216. 3150 DATA  -4608, -4370, -4370, -4370, -4370, -4370, -4370,   238
  217. 3160 DATA      0,     0,     0,     0,     0,     0,     0,     0
  218. 3170 DATA      0,     0,     0,     0,     0,     0,     0,     0
  219. 3180 'DOOR
  220. 3190 DATA      0,     0,     0,-21856,  2730,     0,     0,     0
  221. 3200 DATA      0,     0,-22016,-21846,-21846,   170,     0,     0
  222. 3210 DATA      0,     0,-21846,-21846,-21846,-21846,     0,     0
  223. 3220 DATA      0,-24576,-21846,     0,     0,-21846,    10,     0
  224. 3230 DATA      0,-22016,    10,  2560,  2570,-24576,   170,     0
  225. 3240 DATA      0,  2720,-24576,-24416,-24416,   160,  2720,     0
  226. 3250 DATA      0,   160,     0,     0,     0,     0,  2720,     0
  227. 3260 DATA      0,  2720,-21846,-21846,-21846,-21846,   160,     0
  228. 3270 DATA      0,   160,    10,     0,     0,-24576,  2720,     0
  229. 3280 DATA      0,  2720, -9766, -9767, -9767,-22055,   160,     0
  230. 3290 DATA      0,   160,-25190,-25187,-25187,-21091,  2720,     0
  231. 3300 DATA      0,  2720, -9766, -9767, -9767,-22055,   160,     0
  232. 3310 DATA      0,   160,-25190,-25187,-25187,-21091,  2720,     0
  233. 3320 DATA      0,  2720, -9766, -9767, -9767,-22055,   160,     0
  234. 3330 DATA      0,   160,-25190,-25187,-25187,-21091,  2720,     0
  235. 3340 DATA      0,  2720,-21846,-21846,-21846,-21846,   160,     0
  236. 3350 DATA      0,   160,     0,     0,     0,     0,  2720,     0
  237. 3360 DATA      0,  2720,     0,     0,     0,     0,   160,     0
  238. 3370 DATA      0,   160,  2560,  2570,  2570,  2570,  2720,     0
  239. 3380 DATA      0,  2720,-24416,-24416,-24416,-24416,   160,     0
  240. 3390 DATA      0,   160,  2560,  2570,  2570,  2570,  2720,     0
  241. 3400 DATA      0,  2720,-24416,-24416,-24416,-24416,   160,     0
  242. 3410 DATA      0,   160,  2560,  2570,  2570,  2570,  2720,     0
  243. 3420 DATA      0,  2720,-24416,-24416,-24416,-24416,   160,     0
  244. 3430 DATA      0,   160,  2560,  2570,  2570,  2570,  2720,     0
  245. 3440 DATA      0,  2720,-24416,-24416,-24416,-24416,   160,     0
  246. 3450 DATA      0,   160,  2560,  2570,  2570,  2570,  2720,     0
  247. 3460 DATA      0,  2720,     0,     0,     0,     0,   160,     0
  248. 3470 DATA      0,-21856,-21846,-21846,-21846,-21846,  2730,     0
  249. 3480 DATA      0,-21856,-21846,-21846,-21846,-21846,   170,     0
  250. 3490 DATA      0,  2560,  2570,  2570,  2570,  2570,  2570,     0
  251. 3500 DATA      0,     0,     0,     0,     0,     0,     0,     0
  252. 3510 'WALL
  253. 3520 DATA     -1,  4095,    -1,    -1,    -1,  4095,    -1,    -1
  254. 3530 DATA -25187,  3485,-25185,-25187,-25187,  3485,-25185,-25187
  255. 3540 DATA  -9767,  2521, -9761, -9767, -9767,  2521, -9761, -9767
  256. 3550 DATA -25187,  3485,-25185,-25187,-25187,  3485,-25185,-25187
  257. 3560 DATA  -9767,  2521, -9761, -9767, -9767,  2521, -9761, -9767
  258. 3570 DATA -25187,  3485,-25185,-25187,-25187,  3485,-25185,-25187
  259. 3580 DATA  -9767,  2521, -9761, -9767, -9767,  2521, -9761, -9767
  260. 3590 DATA      0,     0,     0,     0,     0,     0,     0,     0
  261. 3600 DATA     -1,    -1,    -1,  4095,    -1,    -1,    -1,  4095
  262. 3610 DATA -25185,-25187,-25187,  3485,-25185,-25187,-25187,  3485
  263. 3620 DATA  -9761, -9767, -9767,  2521, -9761, -9767, -9767,  2521
  264. 3630 DATA -25185,-25187,-25187,  3485,-25185,-25187,-25187,  3485
  265. 3640 DATA  -9761, -9767, -9767,  2521, -9761, -9767, -9767,  2521
  266. 3650 DATA -25185,-25187,-25187,  3485,-25185,-25187,-25187,  3485
  267. 3660 DATA  -9761, -9767, -9767,  2521, -9761, -9767, -9767,  2521
  268. 3670 DATA      0,     0,     0,     0,     0,     0,     0,     0
  269. 3680 DATA     -1,  4095,    -1,    -1,    -1,  4095,    -1,    -1
  270. 3690 DATA -25187,  3485,-25185,-25187,-25187,  3485,-25185,-25187
  271. 3700 DATA  -9767,  2521, -9761, -9767, -9767,  2521, -9761, -9767
  272. 3710 DATA -25187,  3485,-25185,-25187,-25187,  3485,-25185,-25187
  273. 3720 DATA  -9767,  2521, -9761, -9767, -9767,  2521, -9761, -9767
  274. 3730 DATA -25187,  3485,-25185,-25187,-25187,  3485,-25185,-25187
  275. 3740 DATA  -9767,  2521, -9761, -9767, -9767,  2521, -9761, -9767
  276. 3750 DATA      0,     0,     0,     0,     0,     0,     0,     0
  277. 3760 DATA     -1,    -1,    -1,  4095,    -1,    -1,    -1,  4095
  278. 3770 DATA -25185,-25187,-25187,  3485,-25185,-25187,-25187,  3485
  279. 3780 DATA  -9761, -9767, -9767,  2521, -9761, -9767, -9767,  2521
  280. 3790 DATA -25185,-25187,-25187,  3485,-25185,-25187,-25187,  3485
  281. 3800 DATA  -9761, -9767, -9767,  2521, -9761, -9767, -9767,  2521
  282. 3810 DATA -25185,-25187,-25187,  3485,-25185,-25187,-25187,  3485
  283. 3820 DATA  -9761, -9767, -9767,  2521, -9761, -9767, -9767,  2521
  284. 3830 DATA      0,     0,     0,     0,     0,     0,     0,     0
  285. 3840 'KEY
  286. 3850 DATA      0,     0,     0,     0,     0,     0,     0,     0
  287. 3860 DATA      0,     0,     0,     0,     0,     0, -8192,    14
  288. 3870 DATA      0,     0,     0,     0,     0,     0, -4608,    14
  289. 3880 DATA      0,     0,     0,     0,     0,     0,-20768,    14
  290. 3890 DATA      0,     0,     0,     0,     0,     0, -5394,    14
  291. 3900 DATA      0,     0,     0,     0,     0, -8192, -4434,    14
  292. 3910 DATA      0,     0,     0,     0,     0, -4608, -4374,    14
  293. 3920 DATA      0,     0,     0,     0,     0,-20768, -4370,     0
  294. 3930 DATA      0,     0,     0,     0,     0, -5394,  3822,     0
  295. 3940 DATA      0,     0,     0,     0, -8192, -4434,   238,     0
  296. 3950 DATA      0,     0,     0,     0, -4608, -4374,    14,     0
  297. 3960 DATA      0,     0,     0,     0,-20768,   238,     0,     0
  298. 3970 DATA      0,     0,     0,     0, -5394,   238,     0,     0
  299. 3980 DATA      0,     0,     0, -8192, -4434,   238,     0,     0
  300. 3990 DATA      0,     0,     0, -4608, -4374,     0,     0,     0
  301. 4000 DATA      0,     0,     0,-20768, -4370,     0,     0,     0
  302. 4010 DATA      0,   238,     0, -5394,   238,     0,     0,     0
  303. 4020 DATA  -8192,  3822, -8192, -4434,    14,     0,     0,     0
  304. 4030 DATA  -4608, -4455, -4608, -4374,     0,     0,     0,     0
  305. 4040 DATA -24864, -5735,-20754,  3822,     0,     0,     0,     0
  306. 4050 DATA -26144,-26215, -4370,   238,     0,     0,     0,     0
  307. 4060 DATA -26144,-26130, -4375,    14,     0,     0,     0,     0
  308. 4070 DATA  -5664,-25088, -4455,    14,     0,     0,     0,     0
  309. 4080 DATA  -5664, -8192, -5735,   238,     0,     0,     0,     0
  310. 4090 DATA -24864,    14,-26210,   238,     0,     0,     0,     0
  311. 4100 DATA  -4384,   233,-26144,  3817,     0,     0,     0,     0
  312. 4110 DATA -21792,  3742,-26144,  3817,     0,     0,     0,     0
  313. 4120 DATA  -1312, -5654,-26210,   238,     0,     0,     0,     0
  314. 4130 DATA -20992,-24854, -5735,    14,     0,     0,     0,     0
  315. 4140 DATA  -8192, -4370, -4370,     0,     0,     0,     0,     0
  316. 4150 DATA      0,     0,     0,     0,     0,     0,     0,     0
  317. 4160 DATA      0,     0,     0,     0,     0,     0,     0,     0
  318. 4170 '
  319. 4180 DATA      0,     0,-28672,-26215,-26215,   153,     0,     0
  320. 4190 DATA      0,-26224,-26215,-26215,-26215,-26215,     0,     0
  321. 4200 DATA -28672,-26215,-26215,-25191,-26215,-26215,     9,     0
  322. 4210 DATA -26368,-26215,-26215, -9831,-26215,-26215,   153,     0
  323. 4220 DATA -26224,-26215,-26215,-26215,-26215,-26215,  2457,     0
  324. 4230 DATA -26224,-26215,-26215,-26215,-26215,-26215,  2457,     0
  325. 4240 DATA -26224,-26215,-26215,-26215,-26215,-26215,  2457,     0
  326. 4250 DATA -26224,-26215,-26215,-26215,-26215,-26215,-26215,     0
  327. 4260 DATA -26215,-26215,-26215,-26215,-26215,-26215,-26215,     0
  328. 4270 DATA -26215,-26215,-26215,-26215,-26210,-26215,-26215,     0
  329. 4280 DATA -26215,-26215,-26215,-26215,-26210,-26215,-26215,     0
  330. 4290 DATA -26215,-26215,-26215,-26215,-26354,-26215,-26215,     0
  331. 4300 DATA -26215,-26215,-26215,-26215,-26130,-26215,-26215,     0
  332. 4310 DATA -26215,-26215,-26215,-26130, -5650,-26210,  2457,     0
  333. 4320 DATA -26215,-26215,-26215, -8192,  3822, -8192,  2457,     0
  334. 4330 DATA -26215,-26215, -4450,  3822, -7954, -4370,   158,     0
  335. 4340 DATA -26215,-26215,   238, -8192,  3822, -8192,    14,     0
  336. 4350 DATA -26215,-26215, -4082, -7937,  3822,  4095,    14,     0
  337. 4360 DATA -26215,-24935,  -242, -4199,  -274,  -103,    14,     0
  338. 4370 DATA -26215,-28439,-24594, -5729,-24850, -1633,    14,     0
  339. 4380 DATA -26215,-28439,-24594, -5731,-24850, -1635,   158,     0
  340. 4390 DATA -26215,-24855,  -279, -4199,  -274, -4199,   158,     0
  341. 4400 DATA -26215,-24855, -4375, -4370, -4370, -4370,   158,     0
  342. 4410 DATA -26215,-24935, -4375, -4370, -4370, -4370,  2462,     0
  343. 4420 DATA -26215,-26215, -4375, -4370, -7954, -4370,  2462,     0
  344. 4430 DATA -26215,-26215, -4375, -4370, -8178, -4370,  2462,     0
  345. 4440 DATA -26215,-26215, -4375, -4370, -4370, -4370,-26224,     0
  346. 4450 DATA -26215,-26215, -4599,-20754,-20754, -4370,-26224,     0
  347. 4460 DATA -26224,-26215, -8183, -4370, -5462,  3822,-26224,     0
  348. 4470 DATA -26224,-26215,     9, -4370, -4370,   238,-26224,     0
  349. 4480 DATA -26368,-26215,     9, -4608, -4370,    14,  2448,     0
  350. 4490 DATA -26368,-26215,     9,     0,  3822,     0,  2448,     0
  351. 4500 '
  352. 4510 DATA      0,     0,     0,     0,     0,     0,     0,     0
  353. 4520 DATA      0,     0,     0,     0,     0,     0,     0,     0
  354. 4530 DATA      0,     0, -4370, -4370, -4370, -4370,     0,     0
  355. 4540 DATA      0, -4608,     0,     0,     0,     0,   238,     0
  356. 4550 DATA      0,   238,     0,     0,     0,     0, -4608,     0
  357. 4560 DATA  -8192,     0,     0,     0,     0,     0,     0,    14
  358. 4570 DATA   3584,     0,     0,     0,     0,     0,     0,   224
  359. 4580 DATA   3584,   240, -4096,-22016,     0,     0,     0,   224
  360. 4590 DATA    224,   240,  -256,   160,    10,     0,     0,  3584
  361. 4600 DATA    224,   240,  4080,   160,    10,     0,     0,  3584
  362. 4610 DATA    224, -3856,   255,-22016,     0,     0,     0,  3584
  363. 4620 DATA    224,   -16,     0,     0,     0,     0,     0,  3584
  364. 4630 DATA    224,   240,     0,     0,     0,     0,     0,  3584
  365. 4640 DATA    224,   240,     0,     0,     0,     0,     0,  3584
  366. 4650 DATA    224,   240,     0,     0,     0,     0,     0,  3584
  367. 4660 DATA    224,   240,     0,  4080,     0,     0,     0,  3584
  368. 4670 DATA    224,  4080,     0, -4096,    15,   -16,    -1,  3584
  369. 4680 DATA    224,  -256,    -1,    15,   255,     0,  -256,  3584
  370. 4690 DATA    224,     0,     0,     0,  4080,     0,  -256,  3584
  371. 4700 DATA    224,     0,     0,     0,  -256,     0,  4080,  3584
  372. 4710 DATA    224,     0,     0,     0,     0,     0,   255,  3584
  373. 4720 DATA    224,     0,     0,     0,     0, -4096,    15,  3584
  374. 4730 DATA    224,     0,     0,     0,     0,  -256,   255,  3584
  375. 4740 DATA    224,     0,     0,     0,     0,  4080,   255,  3584
  376. 4750 DATA   3584,     0,     0,     0,     0,   255,  4080,   224
  377. 4760 DATA   3584,     0,     0,     0, -4096,    15,  -256,   224
  378. 4770 DATA  -8192,     0,     0,     0,     0,     0,     0,    14
  379. 4780 DATA  -8192,   224,     0,     0,     0,     0, -4608,     0
  380. 4790 DATA  -4608, -4594,     0,     0,     0,     0,   238,     0
  381. 4800 DATA      0,     0, -4370, -4370, -4370, -4370,     0,     0
  382. 4810 DATA      0,     0,     0,     0,     0,     0,     0,     0
  383. 4820 DATA      0,     0,     0,     0,     0,     0,     0,     0
  384. 4830 '
  385. 4840 DATA      0, -8960, -8739,     0,     0, -8739,   221,     0
  386. 4850 DATA      0, -8739, -8739,   221, -8960, -8739, -8739,     0
  387. 4860 DATA  -8960, -8739, -8739, -8739, -8739, -8739, -8739,   221
  388. 4870 DATA  -8752, -8739, -8739, -8739, -8739, -8739, -8739, -8739
  389. 4880 DATA  -8739, -8739, -8739, -8739, -8739, -8739, -8739, -8739
  390. 4890 DATA  -8739, -8739, -8739, -1571, -8737, -8739, -8739, -8739
  391. 4900 DATA  -8739, -8739, -8739, -1571, -8737, -8739, -8739, -8739
  392. 4910 DATA  -8739, -8739, -8739,-25123, -8743, -8739, -8739, -8739
  393. 4920 DATA  -8739, -8739, -8739, -8739, -8739, -8739, -8739, -8739
  394. 4930 DATA  -8739, -8739, -8739, -8739, -8739, -8739, -8739, -8739
  395. 4940 DATA -25123, -8739, -8739, -8739, -8739, -8739, -8739, -8752
  396. 4950 DATA  -9767, -8743, -8739, -8739, -8739, -8739, -8739, -8960
  397. 4960 DATA -25187, -8739, -8739, -8739, -8739, -8739, -8739,-12288
  398. 4970 DATA  -9984, -8739, -8739, -8739, -8739, -8739, -8739,     0
  399. 4980 DATA -28672, -8739, -8755, -8740, -8739, -8739, -8739,     0
  400. 4990 DATA -12288, -8743, -8996, -8755, -9011, -8996, -8739,     0
  401. 5000 DATA -28672, -8739, -8739, -8739,-12835, -8755,  3549,     0
  402. 5010 DATA -12288, -8743, -8739, -8739, -8739, -8739,  3549,     0
  403. 5020 DATA -28672, -8739, -8739, -8739, -8739, -8739,  3549,     0
  404. 5030 DATA      0, -8743, -8739, -8739, -8739, -8739,  3549,     0
  405. 5040 DATA      0, -8739, -8739, -8739, -8739, -8739,   221,     0
  406. 5050 DATA      0, -8743, -8739, -8739, -8739, -8739,   221,     0
  407. 5060 DATA      0, -8803, -8739, -8739, -8739, -8739,   221,     0
  408. 5070 DATA      0, -9767, -8739, -8739, -8739, -8739,   221,     0
  409. 5080 DATA      0, -8801, -8739, -8739, -8739, -8739,   221,     0
  410. 5090 DATA      0, -9969, -8739, -8739, -8739,-25123,   157,     0
  411. 5100 DATA -24576,-28417,-25187, -8739, -8803, -9763,     9,     0
  412. 5110 DATA -24576,  4090,-12288, -9767, -9767,   217,   240,     0
  413. 5120 DATA -24576,   -86,  4095,     0,     0,  -256,  2735,     0
  414. 5130 DATA -24576,-21846,   -86,    -1,    -1,-21761,  2730,     0
  415. 5140 DATA -22016,-21846,-21846,-21846,-21846,-21846,-21846,     0
  416. 5150 DATA -22016,-21846,-21846,-21846,-21846,-21846,-21846,     0
  417. 5160 '
  418. 5170 DATA      0,     0,     0,     0,     0,  3584,   224,     0
  419. 5180 DATA      0,     0,     0,     0,     0,  3584,   224,     0
  420. 5190 DATA      0,     0,     0,     0,     0,  3584,   224,     0
  421. 5200 DATA      0,     0,     0,     0,     0, -4608,   224,     0
  422. 5210 DATA     13,     0,     0,     0,     0, -4608,   238,     0
  423. 5220 DATA   3549,     0,     0,     0,     0, -4384,  3822,     0
  424. 5230 DATA  -8739,     0,     0,     0,     0, -4384,  3808,     0
  425. 5240 DATA  -8739,    13,     0,     0,     0,  3808, -4370,     0
  426. 5250 DATA  -8739,  3549,     0,     0,     0, -4384, -4370,     0
  427. 5260 DATA  -8739, -8739,    13,     0,     0, -4595,  3822,     0
  428. 5270 DATA  -8739, -8739,   221,     0,-12288, -4387,    14,     0
  429. 5280 DATA  -8739, -8739, -8739,     0, -8752, -4643,    14,     0
  430. 5290 DATA  -8739, -8739, -8739, -8947, -8739, -8739,    13,     0
  431. 5300 DATA  -8739, -8739, -8739, -8739, -8739, -8739,     0,     0
  432. 5310 DATA  -8752, -8739, -8739, -8739, -8739,  3549,     0,     0
  433. 5320 DATA  -8960, -8739, -8739, -8739, -8739,   221,     0,     0
  434. 5330 DATA      0, -8739, -8739, -8739, -8739,    13,     0,     0
  435. 5340 DATA      0, -8752, -8739, -8739, -8739,     0,     0,     0
  436. 5350 DATA      0, -8960, -8739, -8739,   221,     0,     0,     0
  437. 5360 DATA      0,     0, -8960, -8739,     0,     0,     0,     0
  438. 5370 DATA      0,     0,     0,     0,     0,     0,     0,     0
  439. 5380 DATA      0,     0,     0,     0,     0,     0,     0,     0
  440. 5390 DATA      0,     0,     0,     0,     0,     0,     0,     0
  441. 5400 DATA      0,     0,     0,     0,     0,     0,     0,     0
  442. 5410 DATA      0,     0,     0,     0,     0,     0,     0,     0
  443. 5420 DATA      0,     0,     0,     0,     0,     0,     0,     0
  444. 5430 DATA      0,     0,     0,     0,     0,     0,     0,     0
  445. 5440 DATA      0,     0,     0,     0,     0,     0,     0,     0
  446. 5450 DATA      0,     0,     0,     0,     0,     0,     0,     0
  447. 5460 DATA      0,     0,     0,     0,     0,     0,     0,     0
  448. 5470 DATA      0,     0,     0,     0,     0,     0,     0,     0
  449. 5480 DATA      0,     0,     0,     0,     0,     0,     0,     0
  450. 5490 '***** MAIN PROGRAM
  451. 5500 '*****
  452. 5510 FOR J=0 TO 11:FOR I=0 TO 14:S(I,J)=4:NEXT I,J
  453. 5520 '***** 画面作成
  454. 5530 FOR J=-1 TO 13:FOR I=0 TO 31
  455. 5540 GOSUB 6740:NEXT I,J
  456. 5550 SYMBOL(465,270),"ＲＯＵＮＤ",2,2,7,,,5
  457. 5560 LINE(470,75)-(619,133),PSET,0,BF
  458. 5570 SYMBOL(486,83),"宝の塔][",2,3,1,,,1
  459. 5580 SYMBOL(483,80),"宝の塔][",2,3,6,,,1
  460. 5590 SYMBOL(511,140),"BY H2SO4",1,1,7,,,9
  461. 5600 '*****
  462. 5610 LINE(32,64)-(447,383),PSET,0,BF
  463. 5620 SYMBOL(58,106),"The Tower of Tresure ][",2,3,1,,,1
  464. 5630 SYMBOL(56,104),"The Tower of Tresure ][",2,3,2,,,1
  465. 5640 SYMBOL(54,102),"The Tower of Tresure ][",2,3,3,,,1
  466. 5650 SYMBOL(52,100),"The Tower of Tresure ][",2,3,7,,,1
  467. 5660 SYMBOL(130,210),"HIT [RUN] BUTTON TO START!",1,2,4,,,9
  468. 5670 SYMBOL(138,300),"BY H2SO4",3,2,7,,,1
  469. 5680 IF PTRIG(1)<>4 THEN 5680
  470. 5690 RO=1:GOSUB 6570
  471. 5700 '***** ラウンド更新
  472. 5710 FOR J=1 TO 10:READ SA$(J):NEXT:READ XA:READ YA:READ TR
  473. 5720 GOSUB 6760
  474. 5730 FOR J=1 TO 10:FOR I=1 TO 13
  475. 5740   S(I,J)=VAL(MID$(SA$(J),I,1))
  476. 5750   SS=S(I,J):ON SS+1 GOSUB 6700,6710,6720,6730,6740,6750
  477. 5760 NEXT I,J
  478. 5770 X=XA:Y=YA:HE=1:GOSUB 6250:GOSUB 6640
  479. 5780 '***** メインルーチン
  480. 5790 FOR I=0 TO 500:NEXT
  481. 5800 IF PTRIG(1)=1 THEN GOTO 6430
  482. 5810 IF PTRIG(1)=8 THEN GOTO 6310
  483. 5820 '
  484. 5830 XX=(PAD(1)=7)-(PAD(1)=3):'XX=(I$=CHR$(&H1D))-(I$=CHR$(&H1C))
  485. 5840 YY=(PAD(1)=1)-(PAD(1)=5):'YY=(I$=CHR$(&H1E))-(I$=CHR$(&H1F))
  486. 5850 IF XX=0 AND YY=0 THEN GOTO 5790
  487. 5860 IF XX=1 THEN HE=3 ELSE IF XX=-1 THEN HE=4
  488. 5870 IF YY=1 THEN HE=1 ELSE IF YY=-1 THEN HE=2
  489. 5880 SS=S(X+XX,Y+YY)
  490. 5890 ON SS+1 GOTO 5920,5970,6050,6120,6170,6200
  491. 5900 GOTO 5790
  492. 5910 '***** サブルーチン
  493. 5920 '=== スペース
  494. 5930 GOSUB 6540:GOSUB 6690:X=X+XX/2:Y=Y+YY/2:GOSUB 6640
  495. 5940 FOR I=0 TO 500:NEXT I
  496. 5950 GOSUB 6690:X=X+XX/2:Y=Y+YY/2:GOSUB 6640
  497. 5960 GOTO 5790
  498. 5970 '=== ストーン
  499. 5980 IF S(X+XX*2,Y+YY*2)<>0 THEN GOSUB 6550:GOSUB 6640:GOTO 5790
  500. 5990 GOSUB 6540:I=X+XX:J=Y+YY:GOSUB 6700:GOSUB 6690
  501. 6000 X=X+XX/2:Y=Y+YY/2:I=X+XX:J=Y+YY:GOSUB 6710:GOSUB 6640
  502. 6010 FOR I=0 TO 500:NEXT
  503. 6020 GOSUB 6690:X=X+XX/2:Y=Y+YY/2:GOSUB 6640
  504. 6030 S(X,Y)=0:I=X+XX:J=Y+YY:S(I,J)=1:GOSUB 6710
  505. 6040 GOTO 5790
  506. 6050 '=== 宝箱
  507. 6060 IF K=0 THEN GOTO 6180 ELSE K=K-1
  508. 6070 GOSUB 6560:GOSUB 6690:X=X+XX/2:Y=Y+YY/2:GOSUB 6640
  509. 6080 FOR I=0 TO 500:NEXT
  510. 6090 GOSUB 6690:X=X+XX/2:Y=Y+YY/2:GOSUB 6640:S(X,Y)=0
  511. 6100 T=T+1
  512. 6110 GOTO 5790
  513. 6120 '=== ドアー
  514. 6130 IF T<>TR THEN GOSUB 6550:GOSUB 6640:GOTO 5790
  515. 6140 GOSUB 6690:X=X+XX/2:Y=Y+YY/2:GOSUB 6640
  516. 6150 FOR I=0 TO 500:NEXT
  517. 6160 GOSUB 6690:X=X+XX/2:Y=Y+YY/2:GOSUB 6640:GOTO 6310
  518. 6170 '=== ウォール
  519. 6180 GOSUB 6550:GOSUB 6640:GOTO 5790
  520. 6190 '=== カギ
  521. 6200 GOSUB 6560:GOSUB 6690:X=X+XX/2:Y=Y+YY/2:GOSUB 6640
  522. 6210 FOR I=0 TO 500:NEXT
  523. 6220 GOSUB 6690:X=X+XX/2:Y=Y+YY/2:GOSUB 6640:S(X,Y)=0
  524. 6230 K=K+1
  525. 6240 GOTO 5790
  526. 6250 '***** 表示
  527. 6260 LINE(550,307)-(600,348),PSET,0,BF
  528. 6270 IF RO>9 THEN GOSUB 6300 ELSE GOSUB 6290
  529. 6280 RETURN
  530. 6290 SYMBOL(550,312),STR$(RO),2,2,7,,,1:RETURN
  531. 6300 SYMBOL(540,312),STR$(RO),2,2,7,,,1:RETURN
  532. 6310 '***** 面クリア処理
  533. 6320 GOSUB 6590:T=0:TR=0:RO=RO+1
  534. 6330 SYMBOL(90,120),"CLEARED!!",4,4,6,,,5
  535. 6340 IF RO<>6 THEN 6410
  536. 6350 LINE(204,207)-(269,272),PSET,6,B
  537. 6360 PUT@A(205,208)-(236,239),M1%,PSET
  538. 6370 PUT@A(237,208)-(268,239),M2%,PSET
  539. 6380 PUT@A(205,240)-(236,271),M3%,PSET
  540. 6390 PUT@A(237,240)-(268,271),M4%,PSET
  541. 6400 SYMBOL(120,310),"HALFTIME!!",3,3,6,,,5
  542. 6410 FOR I=0 TO 20000:NEXT
  543. 6420 IF RO=11 THEN GOTO 7110 ELSE GOTO 5710
  544. 6430 '***** ギブアップ処理
  545. 6440 GOSUB 6610:FOR J=0 TO 2
  546. 6450 HE=1:GOSUB 6640:FOR I=0 TO 400:NEXT I
  547. 6460 HE=3:GOSUB 6640:FOR I=0 TO 400:NEXT I
  548. 6470 HE=2:GOSUB 6640:FOR I=0 TO 400:NEXT I
  549. 6480 HE=4:GOSUB 6640:FOR I=0 TO 400:NEXT I
  550. 6490 NEXT J
  551. 6500 HE=1:GOSUB 6640:FOR I=0 TO 400:NEXT I
  552. 6510 HE=3:GOSUB 6640:FOR I=0 TO 1000:NEXT I
  553. 6520 T=0:K=0:GOTO 5720
  554. 6530 '***** サウンド
  555. 6540 PLAY OFF:PLAY "@14T100O3L32CD","@14T100O4L32CD":RETURN
  556. 6550 PLAY OFF:PLAY "@14T100O2L32CD","@14T100O3L32CD":RETURN
  557. 6560 PLAY OFF:PLAY "@14T100O4L32CDEFG","@14T100O5L32CDEFG":RETURN
  558. 6570 PLAY OFF:A$="@14T200O4L4CL8CC<BAL4BL8G#L3EL4AL8GAB>C<L4BL8G>L4C"
  559. 6580 B$="@14T200O3L4EL8EEEFL4GL8DL3EL4FL8EFFFL4DL8DL4E":PLAY A$,B$:RETURN
  560. 6590 PLAY OFF:A$="@14T150O4L8C<GL6EL16CL8AAGR8L16AB>C<AGAB>CL8D<B>C"
  561. 6600 B$="@14T150O3L8EEL6EL16CL8FFER8L16FGAFFFGEL8GGE":PLAY A$,B$:RETURN
  562. 6610 PLAY OFF:A$="@14T100O5L12CC<BBAAGGAABB>L4C"
  563. 6620 B$="@14T100O4L12CC<BBAAGGAABB>L4C":PLAY A$,B$:RETURN
  564. 6630 '***** キャラＰＵＴ
  565. 6640 ON HE GOSUB 6650,6660,6670,6680:RETURN
  566. 6650 PUT@A(X*32,Y*32+32)-(X*32+31,Y*32+63),HE1%,PSET:RETURN
  567. 6660 PUT@A(X*32,Y*32+32)-(X*32+31,Y*32+63),HE2%,PSET:RETURN
  568. 6670 PUT@A(X*32,Y*32+32)-(X*32+31,Y*32+63),HE3%,PSET:RETURN
  569. 6680 PUT@A(X*32,Y*32+32)-(X*32+31,Y*32+63),HE4%,PSET:RETURN
  570. 6690 LINE(X*32,Y*32+32)-(X*32+31,Y*32+63),PSET,0,BF:RETURN
  571. 6700 LINE(I*32,J*32+32)-(I*32+31,J*32+63),PSET,0,BF:RETURN
  572. 6710 PUT@A(I*32,J*32+32)-(I*32+31,J*32+63),ST%,PSET:RETURN
  573. 6720 PUT@A(I*32,J*32+32)-(I*32+31,J*32+63),TR%,PSET:RETURN
  574. 6730 PUT@A(I*32,J*32+32)-(I*32+31,J*32+63),DR%,PSET:RETURN
  575. 6740 PUT@A(I*32,J*32+32)-(I*32+31,J*32+63),WA%,PSET:RETURN
  576. 6750 PUT@A(I*32,J*32+32)-(I*32+31,J*32+63),KE%,PSET:RETURN
  577. 6760 '***** 画面消去
  578. 6770 FOR I=7 TO 0 STEP -1:FOR J=0 TO 9:II=J*32+I*4
  579. 6780 LINE(32,64+II)-(447,67+II),PSET,0,BF
  580. 6790 NEXT J,I:RETURN
  581. 6800 '***** 面データ
  582. 6810 DATA 0100000001000,1444441400040,0450000443440,0444400404240
  583. 6820 DATA 0450010400040,0401401410040,0400010400040,0104110011100
  584. 6830 DATA 0010011100410,2010040000001,1,1,2
  585. 6840 DATA 0410240010000,0401040010040,0100040140101,0441401044100
  586. 6850 DATA 0450400450014,0100400401000,4404014010110,0004010104100
  587. 6860 DATA 0444141043240,0000010040010,1,1,2
  588. 6870 DATA 0044404401000,0001000100410,0414444401004,0000010040100
  589. 6880 DATA 0001041004110,4445420100040,3004044001400,4400010000010
  590. 6890 DATA 2010010404401,0010040400005,6,1,2
  591. 6900 DATA 0000100010040,0400114100140,0004001040011,0140114014010
  592. 6910 DATA 4010004000110,0040440404004,0041101414145,1400012401000
  593. 6920 DATA 0103004401404,0000000010000,13,1,1
  594. 6930 DATA 0010042005002,0101004410104,1040012104000,0101104010100
  595. 6940 DATA 0101010411041,4414054001000,0100110400111,0444001001000
  596. 6950 DATA 0004110101040,0401004541003,1,10,3
  597. 6960 DATA 0100045420103,0010001004004,0101010040102,0014010000044
  598. 6970 DATA 1010404001005,0140010140444,0104110400000,1401041005014
  599. 6980 DATA 0411000400404,0100100010002,1,10,3
  600. 6990 DATA 0010010001040,4140104040010,4004010144141,5000114001040
  601. 7000 DATA 1100404011040,0001054001441,4141401440010,0010010040140
  602. 7010 DATA 1000010400044,2014030001002,13,5,2
  603. 7020 DATA 4010401005002,1500100040014,2010404124005,4014215040014
  604. 7030 DATA 5400400000400,0001200214010,0000414001141,4144001040010
  605. 7040 DATA 0043454001140,0000010010040,13,10,6
  606. 7050 DATA 3040400000000,0011111420400,1200100044014,0440401140105
  607. 7060 DATA 1005010010014,0100404010404,1040011041010,0004110401040
  608. 7070 DATA 4111040104140,0001040000000,5,10,2
  609. 7080 DATA 0004000000004,4001140104000,0004000410442,1101004010001
  610. 7090 DATA 0004010041450,1114040100040,0004041401101,1042100104010
  611. 7100 DATA 0114010401010,3004054010010,13,10,2
  612. 7110 '**** エンディング
  613. 7120 FOR I=0 TO 20000:NEXT:LINE(32,64)-(447,383),PSET,0,BF
  614. 7130 CLS:SCREEN@ 1:LOAD@ "ending.tif",(50,20)
  615. 7140 SYMBOL(95,221),"See You Again !",1,1,6,,,3
  616. 7145 SYMBOL(28,3),"全面クリアーおめでとうございます!",1,1,6,,,3
  617. 7150 '音楽演奏
  618. 7160 PLAY OFF:FOR I=0 TO 1
  619. 7170 PLAY "@14T255L4O3C2.DE2.RFF2FE2.RA2A2G2F2F2.EE2.R"
  620. 7180 PLAY "E2.FG2.RFF2GA2.RA2A2B2>C2D1R1<"
  621. 7190 PLAY "C2.DE2.RFF2FE2.RA2A2G2F2F2.EE2.R"
  622. 7200 PLAY "E2.FG2.RFF2GA2.RD2D2C2<B2>C2.CC2.R@14T120"
  623. 7210 NEXT
  624. 7220 IF PTRIG(1)=0 THEN 7220
  625.